home *** CD-ROM | disk | FTP | other *** search
- unit Childwin;
-
- interface
-
- uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, WPRuler,
- WpWinCtr, WPRich, WPTBar, WPStatus;
-
- type
- TMDIChild = class(TForm)
- WPRichText1: TWPRichText;
- WPRuler1: TWPRuler;
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure FormCreate(Sender: TObject);
- procedure WPRichText1Change(Sender: TObject);
- procedure FormActivate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- property Memo : TWPRichText read WPRichText1; { NEW }
- end;
-
- var
- GlobalToolBar : TWPToolBar; {NEW} { uses WPTBar and WPStatus }
- GlobalStatusBar : TWPStatusBarBasic; {NEW}
-
- implementation
-
- {$R *.DFM}
-
- procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
- Action := caFree;
- end;
-
- procedure TMDIChild.FormCreate(Sender: TObject);
- begin
- WPRichText1.WpToolBar := GlobalToolBar; {NEW}
- WPRichText1.StatusBar := GlobalStatusBar;
- end;
-
- procedure TMDIChild.WPRichText1Change(Sender: TObject);
- var x : integer;
- begin
- x:=0;
- end;
-
- procedure TMDIChild.FormActivate(Sender: TObject);
- begin
- Memo.SetFocus; {NEW}
- end;
-
- end.
-